home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Skunkware 5
/
Skunkware 5.iso
/
lib
/
xc
/
.aus
next >
Wrap
Text File
|
1994-03-10
|
1KB
|
66 lines
# .asu or .aus : visit SCOForum and UnixForum
# non-stop read, and Prompt Char set to '^H' in all Fora.
#debug "on"
set cis off
set proto 7e
call ".cisdial"
pause 3; transmit "^C"
assign SERVICE eq "scoforum"
call ".pass"
#debug "on"
set cfile "/pub/jpr/comm/sco"
waitfor "moment please..."
capture "on"
if waitfor "forum !^h" 75
then
call ".temp_opt"
assign Upload eq `ls scoR 2>/dev/null`
if Upload eq "scoR"
then capture "off"
type "scoR"
transmit "^M"
while ! waitfor "% choice required"
do; done
shell "mv scoR /pub/rescue/scoR$$"
capture "on"
fi
transmit "rea new^M^M"
while ! waitfor "% choice required"
do; done
capture "off"
else
beep
fi
set cfile "/pub/jpr/comm/uni"
transmit "g unixforum^M"
waitfor "moment please..."
capture "on"
if waitfor "forum !^h" 75
then
call ".temp_opt"
assign Upload eq `ls uniR 2>/dev/null`
if Upload eq "uniR"
then capture "off"
type "uniR"
transmit "^M"
while ! waitfor "% choice required"
do; done
shell "mv uniR /pub/rescue/uniR$$"
capture "on"
fi
transmit "rea new^M^M"
while ! waitfor "% choice required"
do; done
capture "off"
else
beep
fi
transmit "off^M"
quit